home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / kcl.lha / cmpnew / cmpeval.c < prev    next >
C/C++ Source or Header  |  1987-06-04  |  33KB  |  1,399 lines
  1.  
  2. /* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
  3. #include <cmpinclude.h>
  4. #include "cmpeval.h"
  5. init_cmpeval(start,size,data)char *start;int size;object data;
  6. {    register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
  7.     Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
  8.     (void)(putprop(VV[0],VV[1],VV[2]));
  9.     (void)(putprop(VV[0],VV[3],VV[4]));
  10.     (void)(putprop(VV[5],VV[6],VV[7]));
  11.     (void)(putprop(VV[8],VV[9],VV[4]));
  12.     (void)(putprop(VV[8],VV[10],VV[11]));
  13.     (void)(putprop(VV[12],VV[13],VV[7]));
  14.     (void)(putprop(VV[14],VV[15],VV[4]));
  15.     MF(VV[90],L8,start,size,data);
  16.     data->v.v_self[16]=VV[16]=string_to_object(VV[16]);
  17.     vs_top=sup;
  18.     MF(VV[91],L9,start,size,data);
  19.     VV[25]->s.s_stype=(short)stp_special;
  20.     if(VV[25]->s.s_dbind == OBJNULL){
  21.     base[1]=symbol_function(VV[92]);
  22.     base[2]= VV[18];
  23.     base[4]= Cnil;
  24.     base[3]= simple_symlispcall_no_event(VV[93],base+4,1);
  25.     base[0]= simple_lispcall_no_event(base+1,2);
  26.     VV[25]->s.s_dbind = list(3,VV[17],base[0],Cnil);}
  27.     MF(VV[94],L10,start,size,data);
  28.     VV[26]->s.s_stype=(short)stp_special;
  29.     if(VV[26]->s.s_dbind == OBJNULL){
  30.     base[1]=symbol_function(VV[92]);
  31.     base[2]= VV[18];
  32.     base[4]= Ct;
  33.     base[3]= simple_symlispcall_no_event(VV[93],base+4,1);
  34.     base[0]= simple_lispcall_no_event(base+1,2);
  35.     VV[26]->s.s_dbind = list(3,VV[17],base[0],Ct);}
  36.     MF(VV[95],L11,start,size,data);
  37.     MF(VV[96],L12,start,size,data);
  38.     MF(VV[97],L13,start,size,data);
  39.     MF(VV[98],L14,start,size,data);
  40.     MF(VV[99],L15,start,size,data);
  41.     MF(VV[100],L16,start,size,data);
  42.     MF(VV[101],L17,start,size,data);
  43.     MF(VV[1],L18,start,size,data);
  44.     MF(VV[102],L19,start,size,data);
  45.     MF(VV[3],L20,start,size,data);
  46.     MF(VV[103],L21,start,size,data);
  47.     MF(VV[6],L22,start,size,data);
  48.     MF(VV[104],L23,start,size,data);
  49.     MF(VV[9],L24,start,size,data);
  50.     MF(VV[10],L25,start,size,data);
  51.     MF(VV[13],L26,start,size,data);
  52.     MF(VV[15],L27,start,size,data);
  53.     MF(VV[105],L28,start,size,data);
  54.     MM(VV[86],L29,start,size,data);
  55.     MF(VV[106],L30,start,size,data);
  56.     VV[79]->s.s_stype=(short)stp_special;
  57.     if(VV[79]->s.s_dbind == OBJNULL){
  58.     VV[79]->s.s_dbind = VV[78];}
  59.     (void)putprop(VV[107],VV[89],siSpretty_print_format);
  60.     vs_top=sup;
  61.     MM(VV[107],L31,start,size,data);
  62.     vs_top=vs_base=base;
  63. }
  64. /*    function definition for C1EXPR*    */
  65.  
  66. static L8()
  67. {    register object *base=vs_base;
  68.     register object *sup=base+VM3;
  69.     vs_reserve(VM3);
  70.     check_arg(2);
  71.     vs_top=sup;
  72. TTL:;
  73.     base[2]= base[0];
  74.     vs_top=(vs_base=base+2)+1;
  75.     L9();
  76.     vs_top=sup;
  77.     base[0]= vs_base[0];
  78.     base[2]= base[1];
  79.     base[3]= cadr(base[0]);
  80.     (void)simple_symlispcall_no_event(VV[108],base+2,2);
  81.     vs_top=(vs_base=base+0)+1;
  82.     return;
  83. }
  84. /*    function definition for C1EXPR    */
  85.  
  86. static L9()
  87. {    register object *base=vs_base;
  88.     register object *sup=base+VM4;
  89.     vs_reserve(VM4);
  90.     check_arg(1);
  91.     vs_top=sup;
  92. TTL:;
  93.     frs_push(FRS_CATCH,VV[16]);
  94.     if(nlj_active)
  95.     {nlj_active=FALSE;frs_pop();
  96.     vs_top=sup;
  97.     base[0]= vs_base[0];
  98.     goto T26;}
  99.     else{
  100.     if(!(type_of(base[0])==t_symbol)){
  101.     goto T29;}
  102.     if(!(base[0]==Cnil)){
  103.     goto T32;}
  104.     vs_base=vs_top;
  105.     L10();
  106.     vs_top=sup;
  107.     frs_pop();
  108.     base[0]= vs_base[0];
  109.     goto T26;
  110. T32:;
  111.     if(!(base[0]==Ct)){
  112.     goto T35;}
  113.     vs_base=vs_top;
  114.     L11();
  115.     vs_top=sup;
  116.     frs_pop();
  117.     base[0]= vs_base[0];
  118.     goto T26;
  119. T35:;
  120.     if(!((type_of(base[0])==t_symbol&&(base[0])->s.s_hpack==keyword_package))){
  121.     goto T38;}
  122.     base[2]=symbol_function(VV[92]);
  123.     base[3]= VV[18];
  124.     base[5]= base[0];
  125.     base[4]= simple_symlispcall_no_event(VV[93],base+5,1);
  126.     base[1]= simple_lispcall_no_event(base+2,2);
  127.     base[3]= base[0];
  128.     base[2]= simple_symlispcall_no_event(VV[109],base+3,1);
  129.     base[3]= list(2,VV[19],base[2]);
  130.     base[4]= list(3,VV[17],base[1],base[3]);
  131.     frs_pop();
  132.     base[0]= base[4];
  133.     goto T26;
  134. T38:;
  135.     base[1]= base[0];
  136.     vs_top=(vs_base=base+1)+1;
  137.     Lconstantp();
  138.     vs_top=sup;
  139.     if((vs_base[0])==Cnil){
  140.     goto T47;}
  141.     base[2]= base[0];
  142.     vs_top=(vs_base=base+2)+1;
  143.     Lsymbol_value();
  144.     vs_top=sup;
  145.     base[1]= vs_base[0];
  146.     base[3]= base[1];
  147.     base[4]= Cnil;
  148.     vs_top=(vs_base=base+3)+2;
  149.     L28();
  150.     vs_top=sup;
  151.     base[2]= vs_base[0];
  152.     if(base[2]==Cnil)goto T52;
  153.     frs_pop();
  154.     base[0]= base[2];
  155.     goto T26;
  156. T52:;
  157.     base[4]=symbol_function(VV[92]);
  158.     base[5]= VV[18];
  159.     base[7]= base[1];
  160.     base[6]= simple_symlispcall_no_event(VV[93],base+7,1);
  161.     base[3]= simple_lispcall_no_event(base+4,2);
  162.     base[5]= base[0];
  163.     base[4]= simple_symlispcall_no_event(VV[110],base+5,1);
  164.     base[5]= list(2,VV[19],base[4]);
  165.     base[6]= list(3,VV[17],base[3],base[5]);
  166.     frs_pop();
  167.     base[0]= base[6];
  168.     goto T26;
  169. T47:;
  170.     base[1]= base[0];
  171.     base[2]= simple_symlispcall_no_event(VV[111],base+1,1);
  172.     frs_pop();
  173.     base[0]= base[2];
  174.     goto T26;
  175. T29:;
  176.     if(!(type_of(base[0])==t_cons)){
  177.     goto T64;}
  178.     base[1]= car(base[0]);
  179.     if(!(type_of(base[1])==t_symbol)){
  180.     goto T68;}
  181.     base[2]= base[1];
  182.     base[3]= cdr(base[0]);
  183.     vs_top=(vs_base=base+2)+2;
  184.     L12();
  185.     vs_top=sup;
  186.     frs_pop();
  187.     base[0]= vs_base[0];
  188.     goto T26;
  189. T68:;
  190.     if(!(type_of(base[1])==t_cons)){
  191.     goto T73;}
  192.     if(!(car(base[1])==VV[20])){
  193.     goto T73;}
  194.     base[2]= cdr(base[1]);
  195.     base[3]= cdr(base[0]);
  196.     vs_top=(vs_base=base+2)+2;
  197.     L13();
  198.     vs_top=sup;
  199.     frs_pop();
  200.     base[0]= vs_base[0];
  201.     goto T26;
  202. T73:;
  203.     if(!(type_of(base[1])==t_cons)){
  204.     goto T80;}
  205.     if(!(car(base[1])==VV[21])){
  206.     goto T80;}
  207.     base[2]= VV[22];
  208.     base[3]= simple_symlispcall_no_event(VV[112],base+2,1);
  209.     frs_pop();
  210.     base[0]= base[3];
  211.     goto T26;
  212. T80:;
  213.     base[2]= VV[23];
  214.     base[3]= base[1];
  215.     base[4]= simple_symlispcall_no_event(VV[112],base+2,2);
  216.     frs_pop();
  217.     base[0]= base[4];
  218.     goto T26;
  219. T64:;
  220.     base[1]= base[0];
  221.     base[2]= Ct;
  222.     vs_top=(vs_base=base+1)+2;
  223.     L28();
  224.     vs_top=sup;
  225.     frs_pop();
  226.     base[0]= vs_base[0];}
  227. T26:;
  228.     if(!(base[0]==VV[24])){
  229.     goto T90;}
  230.     vs_base=vs_top;
  231.     L10();
  232.     return;
  233. T90:;
  234.     vs_top=(vs_base=base+0)+1;
  235.     return;
  236. }
  237. /*    function definition for C1NIL    */
  238.  
  239. static L10()
  240. {    register object *base=vs_base;
  241.     register object *sup=base+VM5;
  242.     vs_reserve(VM5);
  243.     check_arg(0);
  244.     vs_top=sup;
  245. TTL:;
  246.     base[0]= symbol_value(VV[25]);
  247.     vs_top=(vs_base=base+0)+1;
  248.     return;
  249. }
  250. /*    function definition for C1T    */
  251.  
  252. static L11()
  253. {    register object *base=vs_base;
  254.     register object *sup=base+VM6;
  255.     vs_reserve(VM6);
  256.     check_arg(0);
  257.     vs_top=sup;
  258. TTL:;
  259.     base[0]= symbol_value(VV[26]);
  260.     vs_top=(vs_base=base+0)+1;
  261.     return;
  262. }
  263. /*    function definition for C1SYMBOL-FUN    */
  264.  
  265. static L12()
  266. {    register object *base=vs_base;
  267.     register object *sup=base+VM7;
  268.     vs_reserve(VM7);
  269.     check_arg(2);
  270.     vs_top=sup;
  271. TTL:;
  272.     base[2]= Cnil;
  273.     base[2]= get(base[0],VV[2],Cnil);
  274.     if((base[2])==Cnil){
  275.     goto T93;}
  276.     base[3]= base[1];
  277.     vs_top=(vs_base=base+3)+1;
  278.     super_funcall_no_event(base[2]);
  279.     return;
  280. T93:;
  281.     base[3]= base[0];
  282.     base[2]= simple_symlispcall_no_event(VV[113],base+3,1);
  283.     if((base[2])==Cnil){
  284.     goto T98;}
  285.     if(!(car(base[2])==VV[27])){
  286.     goto T103;}
  287.     base[4]= VV[28];
  288.     base[5]= Ct;
  289.     base[3]= simple_symlispcall_no_event(VV[92],base+4,2);
  290.     base[5]= base[1];
  291.     base[6]= base[3];
  292.     vs_top=(vs_base=base+5)+2;
  293.     L21();
  294.     vs_top=sup;
  295.     base[4]= vs_base[0];
  296.     base[6]= caddr(base[2]);
  297.     base[5]= simple_symlispcall_no_event(VV[114],base+6,1);
  298.     if((base[5])==Cnil){
  299.     goto T111;}
  300.     structure_set(base[3],VV[29],2,base[5]);
  301. T111:;
  302.     base[6]= caddr(base[2]);
  303.     base[5]= simple_symlispcall_no_event(VV[115],base+6,1);
  304.     if((base[5])==Cnil){
  305.     goto T116;}
  306.     base[6]= Cnil;
  307.     {object V1;
  308.     object V2;
  309.     V1= base[4];
  310.     V2= car((V1));
  311. T125:;
  312.     if(!(endp((V1)))){
  313.     goto T126;}
  314.     goto T121;
  315. T126:;
  316.     if(!(endp(base[5]))){
  317.     goto T132;}
  318.     base[6]= make_cons((V2),base[6]);
  319.     goto T130;
  320. T132:;
  321.     base[8]= car(base[5]);
  322.     base[9]= (V2);
  323.     base[10]= car(base[1]);
  324.     base[7]= simple_symlispcall_no_event(VV[116],base+8,3);
  325.     base[6]= make_cons(base[7],base[6]);
  326.     base[7]= car(base[5]);
  327.     base[5]= cdr(base[5]);
  328.     base[7]= car(base[1]);
  329.     base[1]= cdr(base[1]);
  330. T130:;
  331.     V1= cdr((V1));
  332.     V2= car((V1));
  333.     goto T125;}
  334. T121:;
  335.     base[4]= reverse(base[6]);
  336. T116:;
  337.     base[5]= list(4,VV[27],base[3],cddr(base[2]),base[4]);
  338.     vs_top=(vs_base=base+5)+1;
  339.     return;
  340. T103:;
  341.     base[4]= base[2];
  342.     base[5]= base[0];
  343.     base[6]= base[1];
  344.     base[3]= simple_symlispcall_no_event(VV[117],base+4,3);
  345.     vs_top=(vs_base=base+3)+1;
  346.     L9();
  347.     return;
  348. T98:;
  349.     base[2]= get(base[0],VV[7],Cnil);
  350.     if((base[2])==Cnil){
  351.     goto T159;}
  352.     base[3]= base[0];
  353.     if((simple_symlispcall_no_event(VV[118],base+3,1))==Cnil){
  354.     goto T159;}
  355.     base[3]= base[1];
  356.     vs_top=(vs_base=base+3)+1;
  357.     super_funcall_no_event(base[2]);
  358.     return;
  359. T159:;
  360.     base[2]= get(base[0],VV[30],Cnil);
  361.     if((base[2])==Cnil){
  362.     goto T167;}
  363.     base[3]= base[0];
  364.     if((simple_symlispcall_no_event(VV[118],base+3,1))==Cnil){
  365.     goto T167;}
  366.     base[3]= car(base[2]);
  367.     base[4]= base[1];
  368.     vs_top=(vs_base=base+4)+1;
  369.     super_funcall_no_event(base[3]);
  370.     vs_top=sup;
  371.     if((vs_base[0])==Cnil){
  372.     goto T167;}
  373.     base[3]= cdr(base[2]);
  374.     base[4]= base[1];
  375.     vs_top=(vs_base=base+4)+1;
  376.     super_funcall_no_event(base[3]);
  377.     return;
  378. T167:;
  379.     base[3]= base[0];
  380.     vs_top=(vs_base=base+3)+1;
  381.     Lmacro_function();
  382.     vs_top=sup;
  383.     base[2]= vs_base[0];
  384.     if((base[2])==Cnil){
  385.     goto T180;}
  386.     base[4]= base[2];
  387.     base[5]= base[0];
  388.     base[6]= base[1];
  389.     base[3]= simple_symlispcall_no_event(VV[117],base+4,3);
  390.     vs_top=(vs_base=base+3)+1;
  391.     L9();
  392.     return;
  393. T180:;
  394.     base[2]= get(base[0],VV[31],Cnil);
  395.     if((base[2])==Cnil){
  396.     goto T189;}
  397.     base[5]= list(2,VV[33],base[2]);
  398.     base[6]= make_cons(base[0],base[1]);
  399.     base[7]= list(2,VV[33],base[6]);
  400.     base[4]= list(4,VV[32],base[5],base[7],Cnil);
  401.     base[3]= simple_symlispcall_no_event(VV[119],base+4,1);
  402.     vs_top=(vs_base=base+3)+1;
  403.     L9();
  404.     return;
  405. T189:;
  406.     base[2]= get(base[0],VV[34],Cnil);
  407.     if((base[2])==Cnil){
  408.     goto T195;}
  409.     base[3]= base[0];
  410.     if((simple_symlispcall_no_event(VV[118],base+3,1))==Cnil){
  411.     goto T195;}
  412.     if(!(type_of(base[2])==t_cons)){
  413.     goto T195;}
  414.     base[3]= cdr(base[2]);
  415.     if((simple_symlispcall_no_event(VV[120],base+3,1))==Cnil){
  416.     goto T195;}
  417.     if(endp(base[1])){
  418.     goto T195;}
  419.     if(!(endp(cdr(base[1])))){
  420.     goto T195;}
  421.     {object V3= car(base[2]);
  422.     if((V3!= VV[43]))goto T210;
  423.     base[3]= list(3,VV[35],car(base[1]),cdr(base[2]));
  424.     vs_top=(vs_base=base+3)+1;
  425.     L9();
  426.     return;
  427. T210:;
  428.     if((V3!= VV[84]))goto T212;
  429.     base[3]= list(3,VV[36],cdr(base[2]),car(base[1]));
  430.     vs_top=(vs_base=base+3)+1;
  431.     L9();
  432.     return;
  433. T212:;
  434.     base[3]= car(base[1]);
  435.     base[4]= car(base[2]);
  436.     base[5]= cdr(base[2]);
  437.     vs_top=(vs_base=base+3)+3;
  438.     L23();
  439.     return;}
  440. T195:;
  441.     if(!(base[0]==VV[21])){
  442.     goto T218;}
  443.     base[3]= VV[37];
  444.     symlispcall_no_event(VV[112],base+3,1);
  445.     return;
  446. T218:;
  447.     base[4]= VV[28];
  448.     base[6]= get(base[0],VV[38],Cnil);
  449.     base[5]= (base[6]==Cnil?Ct:Cnil);
  450.     base[3]= simple_symlispcall_no_event(VV[92],base+4,2);
  451.     base[5]= base[1];
  452.     base[6]= base[3];
  453.     vs_top=(vs_base=base+5)+2;
  454.     L21();
  455.     vs_top=sup;
  456.     base[4]= vs_base[0];
  457.     base[6]= base[0];
  458.     base[5]= simple_symlispcall_no_event(VV[121],base+6,1);
  459.     if((base[5])==Cnil){
  460.     goto T228;}
  461.     structure_set(base[3],VV[29],2,base[5]);
  462. T228:;
  463.     base[6]= base[0];
  464.     base[5]= simple_symlispcall_no_event(VV[122],base+6,1);
  465.     if((base[5])==Cnil){
  466.     goto T233;}
  467.     base[6]= base[4];
  468.     base[7]= Cnil;
  469.     base[8]= base[1];
  470. T239:;
  471.     if(!(endp(base[6]))){
  472.     goto T240;}
  473.     base[4]= reverse(base[7]);
  474.     goto T233;
  475. T240:;
  476.     if(!(endp(base[5]))){
  477.     goto T247;}
  478.     base[7]= make_cons(car(base[6]),base[7]);
  479.     goto T245;
  480. T247:;
  481.     base[10]= car(base[5]);
  482.     base[11]= car(base[6]);
  483.     base[12]= car(base[8]);
  484.     base[9]= simple_symlispcall_no_event(VV[116],base+10,3);
  485.     base[7]= make_cons(base[9],base[7]);
  486.     base[9]= car(base[5]);
  487.     base[5]= cdr(base[5]);
  488. T245:;
  489.     base[6]= cdr(base[6]);
  490.     base[8]= cdr(base[8]);
  491.     goto T239;
  492. T233:;
  493.     base[5]= get(base[0],VV[39],Cnil);
  494.     if((base[5])==Cnil){
  495.     goto T263;}
  496.     base[6]= base[4];
  497.     base[7]= base[1];
  498. T268:;
  499.     if(endp(base[5])){
  500.     goto T270;}
  501.     if(!(endp(base[6]))){
  502.     goto T269;}
  503. T270:;
  504.     goto T263;
  505. T269:;
  506.     base[8]= car(base[5]);
  507.     base[9]= car(base[6]);
  508.     base[10]= car(base[7]);
  509.     (void)simple_symlispcall_no_event(VV[123],base+8,3);
  510.     base[8]= car(base[5]);
  511.     base[5]= cdr(base[5]);
  512.     base[6]= cdr(base[6]);
  513.     base[7]= cdr(base[7]);
  514.     goto T268;
  515. T263:;
  516.     {object V4= base[0];
  517.     if((V4!= VV[124]))goto T288;
  518.     base[5]= structure_ref(cadar(base[4]),VV[29],2);
  519.     if(!(base[5]==VV[40])){
  520.     goto T291;}
  521.     base[5]= VV[41];
  522.     if((VV[41])!=Cnil){
  523.     goto T290;}
  524. T291:;
  525.     if(!(type_of(base[5])==t_cons)){
  526.     goto T287;}
  527.     if(car(base[5])==VV[42]){
  528.     goto T298;}
  529.     if(!(car(base[5])==VV[43])){
  530.     goto T287;}
  531. T298:;
  532.     base[5]= cadr(base[5]);
  533.     if((base[5])==Cnil){
  534.     goto T287;}
  535. T290:;
  536.     base[6]= structure_ref(base[3],VV[29],2);
  537.     base[7]= base[5];
  538.     base[5]= simple_symlispcall_no_event(VV[125],base+6,2);
  539.     if((base[5])!=Cnil){
  540.     goto T308;}
  541.     base[6]= VV[44];
  542.     base[7]= make_cons(base[0],base[1]);
  543.     (void)simple_symlispcall_no_event(VV[126],base+6,2);
  544. T308:;
  545.     structure_set(base[3],VV[29],2,base[5]);
  546.     goto T287;
  547. T288:;
  548.     if((V4!= VV[127]))goto T313;
  549.     base[5]= structure_ref(cadar(base[4]),VV[29],2);
  550.     if(!(base[5]==VV[40])){
  551.     goto T316;}
  552.     base[5]= VV[41];
  553.     if((VV[41])!=Cnil){
  554.     goto T315;}
  555. T316:;
  556.     if(!(type_of(base[5])==t_cons)){
  557.     goto T287;}
  558.     if(car(base[5])==VV[42]){
  559.     goto T323;}
  560.     if(!(car(base[5])==VV[43])){
  561.     goto T287;}
  562. T323:;
  563.     base[5]= cadr(base[5]);
  564.     if((base[5])==Cnil){
  565.     goto T287;}
  566. T315:;
  567.     base[6]=symbol_function(VV[125]);
  568.     base[7]= structure_ref(base[3],VV[29],2);
  569.     base[11]= base[4];
  570.     vs_top=(vs_base=base+11)+1;
  571.     Llast();
  572.     vs_top=sup;
  573.     base[10]= vs_base[0];
  574.     base[9]= structure_ref(cadar(base[10]),VV[29],2);
  575.     base[10]= base[5];
  576.     base[8]= simple_symlispcall_no_event(VV[125],base+9,2);
  577.     base[5]= simple_lispcall_no_event(base+6,2);
  578.     if((base[5])!=Cnil){
  579.     goto T337;}
  580.     base[6]= VV[45];
  581.     base[7]= make_cons(base[0],base[1]);
  582.     (void)simple_symlispcall_no_event(VV[126],base+6,2);
  583. T337:;
  584.     structure_set(base[3],VV[29],2,base[5]);
  585.     base[7]= base[4];
  586.     vs_top=(vs_base=base+7)+1;
  587.     Llast();
  588.     vs_top=sup;
  589.     base[6]= vs_base[0];
  590.     structure_set(cadar(base[6]),VV[29],2,base[5]);
  591.     goto T287;
  592. T313:;}
  593. T287:;
  594.     base[5]= list(4,VV[46],base[3],base[0],base[4]);
  595.     vs_top=(vs_base=base+5)+1;
  596.     return;
  597. }
  598. /*    function definition for C1LAMBDA-FUN    */
  599.  
  600. static L13()
  601. {    register object *base=vs_base;
  602.     register object *sup=base+VM8;
  603.     vs_reserve(VM8);
  604.     check_arg(2);
  605.     vs_top=sup;
  606. TTL:;
  607.     base[3]= VV[28];
  608.     base[4]= Ct;
  609.     base[2]= simple_symlispcall_no_event(VV[92],base+3,2);
  610.     base[3]= base[1];
  611.     base[4]= base[2];
  612.     vs_top=(vs_base=base+3)+2;
  613.     L21();
  614.     vs_top=sup;
  615.     base[1]= vs_base[0];
  616.     base[3]= base[0];
  617.     base[0]= simple_symlispcall_no_event(VV[128],base+3,1);
  618.     base[3]= base[2];
  619.     base[4]= cadr(base[0]);
  620.     (void)simple_symlispcall_no_event(VV[108],base+3,2);
  621.     base[3]= list(4,VV[47],base[2],base[0],base[1]);
  622.     vs_top=(vs_base=base+3)+1;
  623.     return;
  624. }
  625. /*    function definition for C2EXPR    */
  626.  
  627. static L14()
  628. {    register object *base=vs_base;
  629.     register object *sup=base+VM9;
  630.     vs_reserve(VM9);
  631.     check_arg(1);
  632.     vs_top=sup;
  633. TTL:;
  634.     if(!(car(base[0])==VV[46])){
  635.     goto T359;}
  636.     base[1]= caddr(base[0]);
  637.     base[2]= cadddr(base[0]);
  638.     base[3]= Cnil;
  639.     base[4]= structure_ref(cadr(base[0]),VV[29],2);
  640.     symlispcall_no_event(VV[129],base+1,4);
  641.     return;
  642. T359:;
  643.     base[1]= get(car(base[0]),VV[4],Cnil);
  644.     {object V5;
  645.     V5= cddr(base[0]);
  646.      vs_top=base+2;
  647.      while(!endp(V5))
  648.      {vs_push(car(V5));V5=cdr(V5);}
  649.     vs_base=base+2;}
  650.     super_funcall_no_event(base[1]);
  651.     return;
  652. }
  653. /*    function definition for C2EXPR*    */
  654.  
  655. static L15()
  656. {    register object *base=vs_base;
  657.     register object *sup=base+VM10;
  658.     vs_reserve(VM10);
  659.     bds_check;
  660.     check_arg(1);
  661.     vs_top=sup;
  662. TTL:;
  663.     setq(VV[49],number_plus(symbol_value(VV[49]),VV[50]));
  664.     bds_bind(VV[48],make_cons(symbol_value(VV[49]),Cnil));
  665.     bds_bind(VV[51],make_cons((VV[48]->s.s_dbind),symbol_value(VV[51])));
  666.     base[3]= base[0];
  667.     vs_top=(vs_base=base+3)+1;
  668.     L14();
  669.     vs_top=sup;
  670.     if((cdr((VV[48]->s.s_dbind)))==Cnil){
  671.     goto T373;}
  672.     princ_str("\nT",VV[52]);
  673.     base[3]= car((VV[48]->s.s_dbind));
  674.     (void)simple_symlispcall_no_event(VV[130],base+3,1);
  675.     princ_str(":;",VV[52]);
  676.     base[3]= Cnil;
  677.     vs_top=(vs_base=base+3)+1;
  678.     bds_unwind1;
  679.     bds_unwind1;
  680.     return;
  681. T373:;
  682.     base[3]= Cnil;
  683.     vs_top=(vs_base=base+3)+1;
  684.     bds_unwind1;
  685.     bds_unwind1;
  686.     return;
  687. }
  688. /*    function definition for C2EXPR-TOP    */
  689.  
  690. static L16()
  691. {    register object *base=vs_base;
  692.     register object *sup=base+VM11;
  693.     vs_reserve(VM11);
  694.     bds_check;
  695.     check_arg(2);
  696.     vs_top=sup;
  697. TTL:;
  698.     bds_bind(VV[54],VV[53]);
  699.     bds_bind(VV[55],VV[53]);
  700.     bds_bind(VV[56],one_plus(symbol_value(VV[56])));
  701.     setq(VV[57],number_plus(symbol_value(VV[57]),VV[50]));
  702.     bds_bind(VV[58],symbol_value(VV[57]));
  703.     princ_str("\n    {register object *base",VV[52]);
  704.     base[6]= one_minus((VV[56]->s.s_dbind));
  705.     (void)simple_symlispcall_no_event(VV[130],base+6,1);
  706.     princ_str("=base;",VV[52]);
  707.     setq(VV[59],Ct);
  708.     princ_str("\n    {register object *base=V",VV[52]);
  709.     base[6]= base[1];
  710.     (void)simple_symlispcall_no_event(VV[130],base+6,1);
  711.     princ_char(59,VV[52]);
  712.     princ_str("\n    register object *sup=vs_base+VM",VV[52]);
  713.     base[6]= (VV[58]->s.s_dbind);
  714.     (void)simple_symlispcall_no_event(VV[130],base+6,1);
  715.     princ_char(59,VV[52]);
  716.     if((symbol_value(VV[60]))==Cnil){
  717.     goto T401;}
  718.     princ_str("\n    vs_reserve(VM",VV[52]);
  719.     base[6]= (VV[58]->s.s_dbind);
  720.     (void)simple_symlispcall_no_event(VV[130],base+6,1);
  721.     princ_str(");",VV[52]);
  722.     goto T399;
  723. T401:;
  724.     princ_str("\n    vs_check;",VV[52]);
  725. T399:;
  726.     princ_str("\n    ",VV[52]);
  727.     (void)simple_symlispcall_no_event(VV[131],base+6,0);
  728.     base[6]= base[0];
  729.     vs_top=(vs_base=base+6)+1;
  730.     L14();
  731.     vs_top=sup;
  732.     base[6]= make_cons((VV[58]->s.s_dbind),(VV[55]->s.s_dbind));
  733.     setq(VV[61],make_cons(base[6],symbol_value(VV[61])));
  734.     princ_str("\n    }}",VV[52]);
  735.     base[6]= Cnil;
  736.     vs_top=(vs_base=base+6)+1;
  737.     bds_unwind1;
  738.     bds_unwind1;
  739.     bds_unwind1;
  740.     bds_unwind1;
  741.     return;
  742. }
  743. /*    function definition for C2EXPR-TOP*    */
  744.  
  745. static L17()
  746. {    register object *base=vs_base;
  747.     register object *sup=base+VM12;
  748.     vs_reserve(VM12);
  749.     bds_check;
  750.     check_arg(2);
  751.     vs_top=sup;
  752. TTL:;
  753.     setq(VV[49],number_plus(symbol_value(VV[49]),VV[50]));
  754.     bds_bind(VV[48],make_cons(symbol_value(VV[49]),Cnil));
  755.     bds_bind(VV[51],make_cons((VV[48]->s.s_dbind),symbol_value(VV[51])));
  756.     base[4]= base[0];
  757.     base[5]= base[1];
  758.     vs_top=(vs_base=base+4)+2;
  759.     L16();
  760.     vs_top=sup;
  761.     if((cdr((VV[48]->s.s_dbind)))==Cnil){
  762.     goto T422;}
  763.     princ_str("\nT",VV[52]);
  764.     base[4]= car((VV[48]->s.s_dbind));
  765.     (void)simple_symlispcall_no_event(VV[130],base+4,1);
  766.     princ_str(":;",VV[52]);
  767.     base[4]= Cnil;
  768.     vs_top=(vs_base=base+4)+1;
  769.     bds_unwind1;
  770.     bds_unwind1;
  771.     return;
  772. T422:;
  773.     base[4]= Cnil;
  774.     vs_top=(vs_base=base+4)+1;
  775.     bds_unwind1;
  776.     bds_unwind1;
  777.     return;
  778. }
  779. /*    function definition for C1PROGN    */
  780.  
  781. static L18()
  782. {    register object *base=vs_base;
  783.     register object *sup=base+VM13;
  784.     vs_reserve(VM13);
  785.     check_arg(1);
  786.     vs_top=sup;
  787. TTL:;
  788.     base[1]= Cnil;
  789.     if(!(endp(base[0]))){
  790.     goto T429;}
  791.     vs_base=vs_top;
  792.     L10();
  793.     return;
  794. T429:;
  795.     if(!(endp(cdr(base[0])))){
  796.     goto T432;}
  797.     base[2]= car(base[0]);
  798.     vs_top=(vs_base=base+2)+1;
  799.     L9();
  800.     return;
  801. T432:;
  802.     base[2]= simple_symlispcall_no_event(VV[92],base+3,0);
  803.     base[3]= base[0];
  804.     base[4]= car(base[3]);
  805. T439:;
  806.     if(!(endp(base[3]))){
  807.     goto T440;}
  808.     goto T436;
  809. T440:;
  810.     base[5]= base[4];
  811.     vs_top=(vs_base=base+5)+1;
  812.     L9();
  813.     vs_top=sup;
  814.     base[4]= vs_base[0];
  815.     base[1]= make_cons(base[4],base[1]);
  816.     base[5]= base[2];
  817.     base[6]= cadr(base[4]);
  818.     (void)simple_symlispcall_no_event(VV[108],base+5,2);
  819.     base[3]= cdr(base[3]);
  820.     base[4]= car(base[3]);
  821.     goto T439;
  822. T436:;
  823.     structure_set(base[2],VV[29],2,structure_ref(cadar(base[1]),VV[29],2));
  824.     base[3]= reverse(base[1]);
  825.     base[4]= list(3,VV[0],base[2],base[3]);
  826.     vs_top=(vs_base=base+4)+1;
  827.     return;
  828. }
  829. /*    function definition for C1PROGN*    */
  830.  
  831. static L19()
  832. {    register object *base=vs_base;
  833.     register object *sup=base+VM14;
  834.     vs_reserve(VM14);
  835.     check_arg(2);
  836.     vs_top=sup;
  837. TTL:;
  838.     base[2]= base[0];
  839.     vs_top=(vs_base=base+2)+1;
  840.     L18();
  841.     vs_top=sup;
  842.     base[0]= vs_base[0];
  843.     base[2]= base[1];
  844.     base[3]= cadr(base[0]);
  845.     (void)simple_symlispcall_no_event(VV[108],base+2,2);
  846.     vs_top=(vs_base=base+0)+1;
  847.     return;
  848. }
  849. /*    function definition for C2PROGN    */
  850.  
  851. static L20()
  852. {    register object *base=vs_base;
  853.     register object *sup=base+VM15;
  854.     vs_reserve(VM15);
  855.     bds_check;
  856.     check_arg(1);
  857.     vs_top=sup;
  858. TTL:;
  859.     {object V6;
  860.     V6= base[0];
  861. T466:;
  862.     if(!(endp(cdr((V6))))){
  863.     goto T467;}
  864.     base[1]= car((V6));
  865.     vs_top=(vs_base=base+1)+1;
  866.     L14();
  867.     return;
  868. T467:;
  869.     bds_bind(VV[62],VV[63]);
  870.     setq(VV[49],number_plus(symbol_value(VV[49]),VV[50]));
  871.     bds_bind(VV[48],make_cons(symbol_value(VV[49]),Cnil));
  872.     bds_bind(VV[51],make_cons((VV[48]->s.s_dbind),symbol_value(VV[51])));
  873.     base[4]= car((V6));
  874.     vs_top=(vs_base=base+4)+1;
  875.     L14();
  876.     vs_top=sup;
  877.     if((cdr((VV[48]->s.s_dbind)))==Cnil){
  878.     bds_unwind1;
  879.     bds_unwind1;
  880.     bds_unwind1;
  881.     goto T472;}
  882.     princ_str("\nT",VV[52]);
  883.     base[4]= car((VV[48]->s.s_dbind));
  884.     (void)simple_symlispcall_no_event(VV[130],base+4,1);
  885.     princ_str(":;",VV[52]);
  886.     bds_unwind1;
  887.     bds_unwind1;
  888.     bds_unwind1;
  889. T472:;
  890.     V6= cdr((V6));
  891.     goto T466;}
  892. }
  893. /*    function definition for C1ARGS    */
  894.  
  895. static L21()
  896. {    register object *base=vs_base;
  897.     register object *sup=base+VM16;
  898.     vs_reserve(VM16);
  899.     check_arg(2);
  900.     vs_top=sup;
  901. TTL:;
  902.     {object V7;
  903.     object V8= base[0];
  904.     if(endp(V8)){
  905.     base[3]= Cnil;
  906.     vs_top=(vs_base=base+3)+1;
  907.     return;}
  908.     base[2]=V7=MMcons(Cnil,Cnil);
  909. T487:;
  910.     base[4]= (V8->c.c_car);
  911.     base[5]= base[1];
  912.     vs_top=(vs_base=base+4)+2;
  913.     L8();
  914.     vs_top=sup;
  915.     (V7->c.c_car)= vs_base[0];
  916.     if(endp(V8=MMcdr(V8))){
  917.     vs_top=(vs_base=base+2)+1;
  918.     return;}
  919.     V7=MMcdr(V7)=MMcons(Cnil,Cnil);
  920.     goto T487;}
  921. }
  922. /*    function definition for C1STRUCTURE-REF    */
  923.  
  924. static L22()
  925. {    register object *base=vs_base;
  926.     register object *sup=base+VM17;
  927.     vs_reserve(VM17);
  928.     check_arg(1);
  929.     vs_top=sup;
  930. TTL:;
  931.     if(endp(base[0])){
  932.     goto T492;}
  933.     if(endp(cdr(base[0]))){
  934.     goto T492;}
  935.     if(!(type_of(cadr(base[0]))==t_cons)){
  936.     goto T492;}
  937.     if(!(caadr(base[0])==VV[33])){
  938.     goto T492;}
  939.     if(endp(cdadr(base[0]))){
  940.     goto T492;}
  941.     if(!(type_of(cadadr(base[0]))==t_symbol)){
  942.     goto T492;}
  943.     if(!(endp(cddadr(base[0])))){
  944.     goto T492;}
  945.     if(endp(cddr(base[0]))){
  946.     goto T492;}
  947.     base[1]= caddr(base[0]);
  948.     if((simple_symlispcall_no_event(VV[120],base+1,1))==Cnil){
  949.     goto T492;}
  950.     if(!(endp(cdddr(base[0])))){
  951.     goto T492;}
  952.     base[1]= car(base[0]);
  953.     base[2]= cadadr(base[0]);
  954.     base[3]= caddr(base[0]);
  955.     vs_top=(vs_base=base+1)+3;
  956.     L23();
  957.     return;
  958. T492:;
  959.     base[1]= simple_symlispcall_no_event(VV[92],base+2,0);
  960.     base[3]= base[0];
  961.     base[4]= base[1];
  962.     vs_top=(vs_base=base+3)+2;
  963.     L21();
  964.     vs_top=sup;
  965.     base[2]= vs_base[0];
  966.     base[3]= list(4,VV[46],base[1],VV[5],base[2]);
  967.     vs_top=(vs_base=base+3)+1;
  968.     return;
  969. }
  970. /*    function definition for C1STRUCTURE-REF1    */
  971.  
  972. static L23()
  973. {    register object *base=vs_base;
  974.     register object *sup=base+VM18;
  975.     vs_reserve(VM18);
  976.     check_arg(3);
  977.     vs_top=sup;
  978. TTL:;
  979.     base[3]= simple_symlispcall_no_event(VV[92],base+4,0);
  980.     base[5]= base[0];
  981.     base[6]= base[3];
  982.     vs_top=(vs_base=base+5)+2;
  983.     L8();
  984.     vs_top=sup;
  985.     base[4]= vs_base[0];
  986.     base[6]= base[1];
  987.     base[5]= simple_symlispcall_no_event(VV[132],base+6,1);
  988.     base[6]= list(5,VV[8],base[3],base[4],base[5],base[2]);
  989.     vs_top=(vs_base=base+6)+1;
  990.     return;
  991. }
  992. /*    function definition for C2STRUCTURE-REF    */
  993.  
  994. static L24()
  995. {    register object *base=vs_base;
  996.     register object *sup=base+VM19;
  997.     vs_reserve(VM19);
  998.     bds_check;
  999.     check_arg(3);
  1000.     vs_top=sup;
  1001. TTL:;
  1002.     bds_bind(VV[54],symbol_value(VV[54]));
  1003.     bds_bind(VV[64],VV[53]);
  1004.     base[7]= make_cons(base[0],Cnil);
  1005.     base[8]= VV[65];
  1006.     base[6]= simple_symlispcall_no_event(VV[133],base+7,2);
  1007.     base[5]= car(base[6]);
  1008.     base[6]= list(4,VV[8],base[5],base[1],base[2]);
  1009.     (void)simple_symlispcall_no_event(VV[134],base+6,1);
  1010.     symlispcall_no_event(VV[135],base+5,0);
  1011.     bds_unwind1;
  1012.     bds_unwind1;
  1013.     return;
  1014. }
  1015. /*    function definition for WT-STRUCTURE-REF    */
  1016.  
  1017. static L25()
  1018. {    register object *base=vs_base;
  1019.     register object *sup=base+VM20;
  1020.     vs_reserve(VM20);
  1021.     check_arg(3);
  1022.     vs_top=sup;
  1023. TTL:;
  1024.     if((symbol_value(VV[60]))==Cnil){
  1025.     goto T533;}
  1026.     princ_str("structure_ref(",VV[52]);
  1027.     base[3]= base[0];
  1028.     (void)simple_symlispcall_no_event(VV[130],base+3,1);
  1029.     princ_str(",VV[",VV[52]);
  1030.     base[3]= base[1];
  1031.     (void)simple_symlispcall_no_event(VV[130],base+3,1);
  1032.     princ_str("],",VV[52]);
  1033.     base[3]= base[2];
  1034.     (void)simple_symlispcall_no_event(VV[130],base+3,1);
  1035.     princ_char(41,VV[52]);
  1036.     base[3]= Cnil;
  1037.     vs_top=(vs_base=base+3)+1;
  1038.     return;
  1039. T533:;
  1040.     princ_char(40,VV[52]);
  1041.     base[3]= base[0];
  1042.     (void)simple_symlispcall_no_event(VV[130],base+3,1);
  1043.     princ_str(")->str.str_self[",VV[52]);
  1044.     base[3]= base[2];
  1045.     (void)simple_symlispcall_no_event(VV[130],base+3,1);
  1046.     princ_char(93,VV[52]);
  1047.     base[3]= Cnil;
  1048.     vs_top=(vs_base=base+3)+1;
  1049.     return;
  1050. }
  1051. /*    function definition for C1STRUCTURE-SET    */
  1052.  
  1053. static L26()
  1054. {    register object *base=vs_base;
  1055.     register object *sup=base+VM21;
  1056.     vs_reserve(VM21);
  1057.     check_arg(1);
  1058.     vs_top=sup;
  1059. TTL:;
  1060.     base[1]= simple_symlispcall_no_event(VV[92],base+2,0);
  1061.     if(endp(base[0])){
  1062.     goto T554;}
  1063.     if(endp(cdr(base[0]))){
  1064.     goto T554;}
  1065.     if(!(type_of(cadr(base[0]))==t_cons)){
  1066.     goto T554;}
  1067.     if(!(caadr(base[0])==VV[33])){
  1068.     goto T554;}
  1069.     if(endp(cdadr(base[0]))){
  1070.     goto T554;}
  1071.     if(!(type_of(cadadr(base[0]))==t_symbol)){
  1072.     goto T554;}
  1073.     if(!(endp(cddadr(base[0])))){
  1074.     goto T554;}
  1075.     if(endp(cddr(base[0]))){
  1076.     goto T554;}
  1077.     base[2]= caddr(base[0]);
  1078.     if((simple_symlispcall_no_event(VV[120],base+2,1))==Cnil){
  1079.     goto T554;}
  1080.     if(endp(cdddr(base[0]))){
  1081.     goto T554;}
  1082.     if(!(endp(cddddr(base[0])))){
  1083.     goto T554;}
  1084.     base[4]= car(base[0]);
  1085.     vs_top=(vs_base=base+4)+1;
  1086.     L9();
  1087.     vs_top=sup;
  1088.     base[2]= vs_base[0];
  1089.     base[4]= cadddr(base[0]);
  1090.     vs_top=(vs_base=base+4)+1;
  1091.     L9();
  1092.     vs_top=sup;
  1093.     base[3]= vs_base[0];
  1094.     base[4]= base[1];
  1095.     base[5]= cadr(base[2]);
  1096.     (void)simple_symlispcall_no_event(VV[108],base+4,2);
  1097.     base[4]= base[1];
  1098.     base[5]= cadr(base[3]);
  1099.     (void)simple_symlispcall_no_event(VV[108],base+4,2);
  1100.     structure_set(base[1],VV[29],2,structure_ref(cadr(base[3]),VV[29],2));
  1101.     base[5]= cadadr(base[0]);
  1102.     base[4]= simple_symlispcall_no_event(VV[132],base+5,1);
  1103.     base[5]= list(6,VV[14],base[1],base[2],base[4],caddr(base[0]),base[3]);
  1104.     vs_top=(vs_base=base+5)+1;
  1105.     return;
  1106. T554:;
  1107.     base[3]= base[0];
  1108.     base[4]= base[1];
  1109.     vs_top=(vs_base=base+3)+2;
  1110.     L21();
  1111.     vs_top=sup;
  1112.     base[2]= vs_base[0];
  1113.     base[3]= list(4,VV[46],base[1],VV[12],base[2]);
  1114.     vs_top=(vs_base=base+3)+1;
  1115.     return;
  1116. }
  1117. /*    function definition for C2STRUCTURE-SET    */
  1118.  
  1119. static L27()
  1120. {    register object *base=vs_base;
  1121.     register object *sup=base+VM22;
  1122.     vs_reserve(VM22);
  1123.     bds_check;
  1124.     check_arg(4);
  1125.     vs_top=sup;
  1126. TTL:;
  1127.     base[4]= Cnil;
  1128.     bds_bind(VV[54],symbol_value(VV[54]));
  1129.     bds_bind(VV[64],VV[53]);
  1130.     base[7]= list(3,base[0],base[3],symbol_value(VV[26]));
  1131.     base[8]= VV[66];
  1132.     base[4]= simple_symlispcall_no_event(VV[133],base+7,2);
  1133.     base[0]= car(base[4]);
  1134.     base[3]= cadr(base[4]);
  1135.     if((symbol_value(VV[60]))==Cnil){
  1136.     goto T603;}
  1137.     princ_str("\n    structure_set(",VV[52]);
  1138.     base[7]= base[0];
  1139.     (void)simple_symlispcall_no_event(VV[130],base+7,1);
  1140.     princ_str(",VV[",VV[52]);
  1141.     base[7]= base[1];
  1142.     (void)simple_symlispcall_no_event(VV[130],base+7,1);
  1143.     princ_str("],",VV[52]);
  1144.     base[7]= base[2];
  1145.     (void)simple_symlispcall_no_event(VV[130],base+7,1);
  1146.     princ_char(44,VV[52]);
  1147.     base[7]= base[3];
  1148.     (void)simple_symlispcall_no_event(VV[130],base+7,1);
  1149.     princ_str(");",VV[52]);
  1150.     goto T601;
  1151. T603:;
  1152.     princ_str("\n    (",VV[52]);
  1153.     base[7]= base[0];
  1154.     (void)simple_symlispcall_no_event(VV[130],base+7,1);
  1155.     princ_str(")->str.str_self[",VV[52]);
  1156.     base[7]= base[2];
  1157.     (void)simple_symlispcall_no_event(VV[130],base+7,1);
  1158.     princ_str("]= ",VV[52]);
  1159.     base[7]= base[3];
  1160.     (void)simple_symlispcall_no_event(VV[130],base+7,1);
  1161.     princ_char(59,VV[52]);
  1162. T601:;
  1163.     base[7]= base[3];
  1164.     (void)simple_symlispcall_no_event(VV[134],base+7,1);
  1165.     symlispcall_no_event(VV[135],base+7,0);
  1166.     bds_unwind1;
  1167.     bds_unwind1;
  1168.     return;
  1169. }
  1170. /*    function definition for C1CONSTANT-VALUE    */
  1171.  
  1172. static L28()
  1173. {    register object *base=vs_base;
  1174.     register object *sup=base+VM23;
  1175.     vs_reserve(VM23);
  1176.     check_arg(2);
  1177.     vs_top=sup;
  1178. TTL:;
  1179.     if(!(base[0]==Cnil)){
  1180.     goto T631;}
  1181.     vs_base=vs_top;
  1182.     L10();
  1183.     return;
  1184. T631:;
  1185.     if(!(base[0]==Ct)){
  1186.     goto T634;}
  1187.     vs_base=vs_top;
  1188.     L11();
  1189.     return;
  1190. T634:;
  1191.     base[2]= base[0];
  1192.     if((simple_symlispcall_no_event(VV[120],base+2,1))==Cnil){
  1193.     goto T637;}
  1194.     base[3]= VV[18];
  1195.     base[4]= VV[67];
  1196.     base[2]= simple_symlispcall_no_event(VV[92],base+3,2);
  1197.     base[4]= base[0];
  1198.     base[3]= simple_symlispcall_no_event(VV[109],base+4,1);
  1199.     base[4]= list(3,VV[68],base[3],base[0]);
  1200.     base[5]= list(3,VV[17],base[2],base[4]);
  1201.     vs_top=(vs_base=base+5)+1;
  1202.     return;
  1203. T637:;
  1204.     if(!(type_of(base[0])==t_character)){
  1205.     goto T646;}
  1206.     base[3]= VV[18];
  1207.     base[4]= VV[41];
  1208.     base[2]= simple_symlispcall_no_event(VV[92],base+3,2);
  1209.     base[4]= base[0];
  1210.     base[3]= simple_symlispcall_no_event(VV[109],base+4,1);
  1211.     base[5]= base[0];
  1212.     vs_top=(vs_base=base+5)+1;
  1213.     Lchar_code();
  1214.     vs_top=sup;
  1215.     base[4]= vs_base[0];
  1216.     base[5]= list(3,VV[69],base[3],base[4]);
  1217.     base[6]= list(3,VV[17],base[2],base[5]);
  1218.     vs_top=(vs_base=base+6)+1;
  1219.     return;
  1220. T646:;
  1221.     base[2]= base[0];
  1222.     base[3]= VV[70];
  1223.     if((simple_symlispcall_no_event(VV[136],base+2,2))==Cnil){
  1224.     goto T656;}
  1225.     base[3]= VV[18];
  1226.     base[4]= VV[70];
  1227.     base[2]= simple_symlispcall_no_event(VV[92],base+3,2);
  1228.     base[4]= base[0];
  1229.     base[3]= simple_symlispcall_no_event(VV[109],base+4,1);
  1230.     base[4]= list(3,VV[71],base[3],base[0]);
  1231.     base[5]= list(3,VV[17],base[2],base[4]);
  1232.     vs_top=(vs_base=base+5)+1;
  1233.     return;
  1234. T656:;
  1235.     base[2]= base[0];
  1236.     base[3]= VV[72];
  1237.     if((simple_symlispcall_no_event(VV[136],base+2,2))==Cnil){
  1238.     goto T666;}
  1239.     base[3]= VV[18];
  1240.     base[4]= VV[72];
  1241.     base[2]= simple_symlispcall_no_event(VV[92],base+3,2);
  1242.     base[4]= base[0];
  1243.     base[3]= simple_symlispcall_no_event(VV[109],base+4,1);
  1244.     base[4]= list(3,VV[73],base[3],base[0]);
  1245.     base[5]= list(3,VV[17],base[2],base[4]);
  1246.     vs_top=(vs_base=base+5)+1;
  1247.     return;
  1248. T666:;
  1249.     if((base[1])==Cnil){
  1250.     goto T676;}
  1251.     base[3]=symbol_function(VV[92]);
  1252.     base[4]= VV[18];
  1253.     base[6]= base[0];
  1254.     base[5]= simple_symlispcall_no_event(VV[93],base+6,1);
  1255.     base[2]= simple_lispcall_no_event(base+3,2);
  1256.     base[4]= base[0];
  1257.     base[3]= simple_symlispcall_no_event(VV[109],base+4,1);
  1258.     base[4]= list(2,VV[19],base[3]);
  1259.     base[5]= list(3,VV[17],base[2],base[4]);
  1260.     vs_top=(vs_base=base+5)+1;
  1261.     return;
  1262. T676:;
  1263.     base[2]= Cnil;
  1264.     vs_top=(vs_base=base+2)+1;
  1265.     return;
  1266. }
  1267. /*    macro definition for DEFINE-COMPILER-MACRO    */
  1268.  
  1269. static L29()
  1270. {    register object *base=vs_base;
  1271.     register object *sup=base+VM24;
  1272.     vs_reserve(VM24);
  1273.     check_arg(2);
  1274.     vs_top=sup;
  1275.     {object V9=base[0]->c.c_cdr;
  1276.     if(endp(V9))invalid_macro_call();
  1277.     base[2]= (V9->c.c_car);
  1278.     V9=V9->c.c_cdr;
  1279.     if(endp(V9))invalid_macro_call();
  1280.     base[3]= (V9->c.c_car);
  1281.     V9=V9->c.c_cdr;
  1282.     base[4]= V9;}
  1283.     base[5]= list(2,VV[33],base[2]);
  1284.     base[6]= list(2,VV[33],base[2]);
  1285.     base[7]= list(2,VV[33],base[3]);
  1286.     base[8]= list(2,VV[33],base[4]);
  1287.     base[9]= list(4,VV[76],base[6],base[7],base[8]);
  1288.     base[10]= list(2,VV[75],base[9]);
  1289.     base[11]= list(4,VV[74],base[5],base[10],VV[77]);
  1290.     base[12]= list(2,VV[33],base[2]);
  1291.     base[13]= list(3,VV[0],base[11],base[12]);
  1292.     vs_top=(vs_base=base+13)+1;
  1293.     return;
  1294. }
  1295. /*    function definition for UNDEF-COMPILER-MACRO    */
  1296.  
  1297. static L30()
  1298. {    register object *base=vs_base;
  1299.     register object *sup=base+VM25;
  1300.     vs_reserve(VM25);
  1301.     check_arg(1);
  1302.     vs_top=sup;
  1303. TTL:;
  1304.     base[1]= remprop(base[0],VV[31]);
  1305.     vs_top=(vs_base=base+1)+1;
  1306.     return;
  1307. }
  1308. /*    macro definition for DEFINE-INLINE-FUNCTION    */
  1309.  
  1310. static L31()
  1311. {    register object *base=vs_base;
  1312.     register object *sup=base+VM26;
  1313.     vs_reserve(VM26);
  1314.     bds_check;
  1315.     check_arg(2);
  1316.     vs_top=sup;
  1317.     {object V10=base[0]->c.c_cdr;
  1318.     if(endp(V10))invalid_macro_call();
  1319.     base[2]= (V10->c.c_car);
  1320.     V10=V10->c.c_cdr;
  1321.     if(endp(V10))invalid_macro_call();
  1322.     base[3]= (V10->c.c_car);
  1323.     V10=V10->c.c_cdr;
  1324.     base[4]= V10;}
  1325.     base[5]= Cnil;
  1326.     bds_bind(VV[79],symbol_value(VV[79]));
  1327.     base[7]= base[3];
  1328.     base[8]= car(base[7]);
  1329. T687:;
  1330.     if(!(endp(base[7]))){
  1331.     goto T688;}
  1332.     goto T684;
  1333. T688:;
  1334.     if(!(type_of(base[8])==t_symbol)){
  1335.     goto T694;}
  1336.     {object x= base[8],V11= VV[80];
  1337.     while(!endp(V11))
  1338.     if(x==(V11->c.c_car)){
  1339.     goto T694;
  1340.     }else V11=V11->c.c_cdr;}
  1341.     base[11]= car((VV[79]->s.s_dbind));
  1342.     (VV[79]->s.s_dbind)= cdr((VV[79]->s.s_dbind));
  1343.     base[10]= base[11];
  1344.     if(base[10]==Cnil)goto T700;
  1345.     base[9]= base[10];
  1346.     goto T699;
  1347. T700:;
  1348.     base[11]= VV[81];
  1349.     base[13]= VV[82];
  1350.     vs_top=(vs_base=base+13)+1;
  1351.     Lfind_package();
  1352.     vs_top=sup;
  1353.     base[12]= vs_base[0];
  1354.     vs_top=(vs_base=base+11)+2;
  1355.     Lgentemp();
  1356.     vs_top=sup;
  1357.     base[9]= vs_base[0];
  1358. T699:;
  1359.     base[5]= make_cons(base[9],base[5]);
  1360.     goto T692;
  1361. T694:;
  1362.     base[9]= VV[83];
  1363.     base[10]= base[8];
  1364.     base[11]= base[2];
  1365.     vs_top=(vs_base=base+9)+3;
  1366.     Lerror();
  1367.     vs_top=sup;
  1368. T692:;
  1369.     base[7]= cdr(base[7]);
  1370.     base[8]= car(base[7]);
  1371.     goto T687;
  1372. T684:;
  1373.     {object V12;
  1374.     object V13= base[3];
  1375.     object V14= base[5];
  1376.     if(endp(V13)||endp(V14)){
  1377.     base[8]= Cnil;
  1378.     goto T717;}
  1379.     base[9]=V12=MMcons(Cnil,Cnil);
  1380. T718:;
  1381.     base[12]= list(2,VV[33],(V13->c.c_car));
  1382.     (V12->c.c_car)= list(3,VV[84],base[12],(V14->c.c_car));
  1383.     if(endp(V13=MMcdr(V13))||endp(V14=MMcdr(V14))){
  1384.     base[8]= base[9];
  1385.     goto T717;}
  1386.     V12=MMcdr(V12)=MMcons(Cnil,Cnil);
  1387.     goto T718;}
  1388. T717:;
  1389.     base[7]= make_cons(VV[84],base[8]);
  1390.     base[8]= listA(4,VV[85],base[2],base[3],base[4]);
  1391.     base[9]= list(2,VV[33],base[4]);
  1392.     base[10]= list(4,VV[87],VV[88],base[7],base[9]);
  1393.     base[11]= list(4,VV[86],base[2],base[5],base[10]);
  1394.     base[12]= list(3,VV[0],base[8],base[11]);
  1395.     vs_top=(vs_base=base+12)+1;
  1396.     bds_unwind1;
  1397.     return;
  1398. }
  1399.